SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSS YYY YYY SSS LLL 000 000 AAA AAA 
SSS vYY YYY SSS LLL 000 000 AAA ABA 
SSS YYY YYY SSS LLL 000 000 AAA AMA 
SSS yyy yYY SSS LLL 000 000 AAA ABA 
SSS yyy yYY SSS LLL 000 000 AAA AAL 
SSS yyy yYY SSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 A 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS vYY SSS) LLL 000 000 AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSSSSSSSSSSS YYY SSSSSSSSSSSS LLELLLLLLLLLLLLL 000000000 AAA AAR 
SSSSSSSSSSSS vYY SSSSSSSSSSSS LELLLLLLLLLLLLL 000000000 AAA AAA 
SSSSSSSSSSSS yyy SSSSSSSSSSSS LLLLLLLLLLLLLLL 000000000 AAA AAA 
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Fahy AA 0D DD PP PP SS UU UU 8B BB UU UU VV VV 11 
aR AA 0D DD PP PP SS UU UU BB BB UU VV VV 11 
AR AA 0D DD PPPPPPPP SSSSSS UU UU BBBBBBBB UU VV VV 11 
Ba AA DD DD PPPPPPPP SSSSSS UU UU BBBBBBBB UU VV VV 11 
AAAAAAAAAA DD DD PP S$ UU UU BB BB UU UU VV VV 1i 
AAAAAAAAAA § DD DD PP SS UU UU BB BB UU UU VV vy 11 
AA AA ODD DD PP SS UU UU BB BB UU UU VV VV 11 cece 
AR AA 0D DD FP SS UU UU BB BB UU UU VW VV 11 eves 
AA AA DDDDDDDD PP SSSSSSSS UUUUUUUUUU = BBBBBBBB UUUUUUUUUU VV 111111 cece 
ro AA DDDDDDDD PP SSSSSSSS UUUUUUUUUU = BBBBBBBB UUUUUUUUUU VV 111111 ocee 
LL IIIIII SSSSSSSS 
LL HII] SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
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PSUBUVI ~ ADAPTER SUBROUTINES FOR MICRO-VAX 1  16SEP=1984 01:06:00 VAX/VMS Macro v04-00 Pa 
vO% ~SEer]RRs BLiBS:28 PANCWES Baca yOKe OO eet - 


-NOSHOW CONDITIONALS 


-TITLE ADPSUBUV1 = ADAPTER SUBROUTINES FOR MICRO-VAX I 
-IDENT 'V04=-000' 


moved it. Note - this is a 780 change only. 


Soooo 


: 
1 
19 
. 1 
0088 
bo ¢ FRR RA AAA AEE EAA A EEA EAE AERA EAAERERAAAAAAAAAAAAAAAAAAAERAAAAREKEReAA Ree 
3* 
888 § :* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
:* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. : 
44 8 is ALL RIGHTS RESERVED. * 
Py 2 
4 0 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
000 1 ;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
000 ¢ 3* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
000 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY a 
000 4 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
44 5 ‘* TRANSFERRED. * 
; te 
0000 : ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 8 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
444 ip :* CORPORATION. . 
Py 
0000 41 ;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 4 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 43 ;* * 
3088 44 ;* & 
44 FRA EARAERE AE AERA ARETE AAA AE AAA AEAE AAA AAAEEAAAAAAAAAAREAAAARAAAAA AAAS 
0000 ‘3 : Facility: System bootstrapping and initialization 
0000 49 ; Abstract: This module contains initialization routines that are loaded 
43 29 3 during system initialization (rather than Linked into the system). 
it 5 > Environment: Mode = KERNEL, Executing on INTERRUPT stack, IPL=31 
2093 3 : Author: Kerbey T. Altmann Creation date: 30-Oct-1982 
000 § : Modification history: 
0000 orf 
4 28 ; v03-007 TCMO002 Trudy C. Matthews M6 syne 1984 
5 Include more 780-specific code for the 11/790 version of 
09 $9 : this routine. 
4 6¢ ; v03-006 KPLO0001 Peter Lieberwirth 12-Apr-1984 
63 ; Init ADPS$L_SHB properly again; V03-004 ASSUMEd this field 
0 rt: : was at a certain constant offset, and a change to the ADP 
66 ; 

2 $9 3 v03-005 KDM0081 Kathleen D. Morse 13-Sep-1983 

08 : Create version for Micro-VAX I. 

, ? ; V03-004 ROW0196 Ra 0. 7-JUL-1983 


=3 


iph Weber 2 
Correct INISMPMADP so the ADPSL_SHB is correctly initialized 
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SYSLOA.S RCIA ADPSUB.MAR; 1 Tat 


to zero. 


v03-003 MSHO001 Mar oy Hin ggen 06-Dec-1982 
Add initialization ¢ or DW75 


v03-002 ROW0142 Ralph 0. Weder 23-NO0 over 98e 
Correct JMP in ayltipert memory interrupt dispatching code 
proses Bes Nieves to a JSB. MASINT expects to receive 
con 


v03-001 TCM0001 yar ¢ atthews 8-Nov-1982 
Initialize field’ ADP L “avers OR in INISMPMADP. 


04-000 
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00000000 C780_LIKE = 0 
5 ; MACRO LIBRARY CALLS 


? SADPDEF 


COOCoOoooooooo 
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SUBIDEF 
SUCBDEF 
SVADEF 

SVECDEF 
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-PSECT SYSLOA,LONG 


“SEP- 
~SEP= 


1986 B4:be:e5  ESYSUOR.SRESAD 


v= 


04-0 P 
SUB MAR: 1 in 3) 


Define ADP offsets. 

Define CRB offsets. 

Define AT codes. 

Define DDB offsets. 

Define DDT offsets. 

Define data structure type codes. 
Define interrupt dispatcher offsets. 
Define MASSBUS registers. 

Define machine check masks. 

Define multi-port memory. 

Define nexus device types. 

Define IPR numbers. 

Define Page Table Entry bits. 

Define Restart Parameter Block fields. 


; Define pxsten service codes. 


A register offsets. 


e 
; Define UNIBUS interconnect 


register offsets. 


; Define unit control block. 


Define virtual address fields. 
Define vec offsets. 
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PSUBUV1 = ADAPTER SUBROUTINES FOR M CRO-VAN I “SEP- AX/VMS Macro v04-0 Cit 
¥04=000" CISINT = cj INTERRUPT HANDLER "er ets te 88: 99 SYSLOA.SRCIJADP PSUR RAR: 1 vou 
14 -SBTTL CISINT - CI INTERRUPT HANDLER 
; CISINT = C1 INTERRUPT HANDLER 
152 ; THIS MODULE IS A DUMMY CI32 INTERRUPT H HANDLER WHICH I$ USED 
153 ; UNTIL THE REAL CI DRIVER (PADRIVER) IS LOADED. IT ALSO CONTAINS 
4 A DUMMY CI EONTROLLER INITIALIZATION ENTRY POINT. 
: > INPUTS: 
; THE STACK ON ENTRY IS AS FOLLOWS: 
160 ; 0(SP) ADDRESS OF IDB ADDRESS 
0 161 : 4(SP) = 16(SP) SAVED R2 = RS 
0 1 é ; : (SP) INTERRUPT PC 
0 163 ; 4(SP) INTERRUPT PSL 
99 165 : OUTPUTS: 
a i 
99 189 ; SIDE EFFECTS: 
09 4 ; INTERRUPTS ARE DISABLED ON THE C132 
3 
00 5 CISINITIAL:: ; CONTROLLER INITIALIZATION 
a000 : CISSHUTDOWN: : : CONTROLLER SHUTDOWN 
00 4 
05 0000 5 RSB 


PSUBUV1 = ADAPTER SUBROUTINES FOR M cro-vix 16=SEP=1 AX/VMS Macro v04-00 Pa 5 
vO% DRSINT = DR INTERRUPT HANDLER g- Sfp. 138¢ 8} 88: 99 SYSLOA. SRCJADPSUB.MAR; 1 - a 
q. .SBTTL DRSINT = DR INTERRUPT HANDLER 
BE :DRSINT = DR INTERRUPT HANDLER 
1 34 THIS MODULE 1S A_ DUMMY DR32_ INTERRUPT HANDLER WHICH IS USED 
1 4g : UNTIL THE REAL DR DRIVER (XF FDRIVER) IS LOADED. IT 4LSO CONTAINS 
43 i A DUMMY DR3 CONTROLLER INITIALIZATION ENTRY POINT. 
49 i : INPUTS: 
oF : THE STACK ON ENTRY IS AS FOLLOWS: 
1 rk ; O(SP) ADDRESS OF IDB ADDRESS 
1 30 : 4(SP) = 16(SP) SAVED R2 = R5 
1 13 3 (SP) INTERRUPT PC 
58 ; 4(SP) INTERRUPT PSL 
34 i : OUTPUTS: 
36 : NONE 
58 : SIDE EFFECTS: 
60 i ; INTERRUPTS ARE DISABLED ON THE DR32 
| ee 
1 5 DRSINITIAL:: ; CONTROLLER INITIALIZATION 
1 6 DRSSHUTDOWN: : : CONTROLLER SHUTDOWN 
1k 
05 1 335 RSB 
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PENDENT UNIBUS ADAPT §-§ p-19be 8, 38:28 SYSLOA.SRCJADPSUB.MAR; 1 teen (8) 


- -SBTTL UBASINITIAL = CPU-DEPENDENT UNIBUS ADAPTER INITIALIZATION 
UBASINITIAL = UNIBUS ADAPTER INITIALIZATION 
THIS ROUTINE IS CALLED VIA A JSB INSTRUCTION AT SYSTEM STARTUP AND AFTER 
A POWER RECOVERY RESTART 70 ALLOW INITIALIZATION OF UNIBUS ADAPTERS. 
(POWERFAIL AND INITADP) 
INPUTS: 


R2 = ADDRESS OF ADAPTER CONTROL BLOC 
R4 = ADDRESS OF UNIBUS ADAPTER CONFI 


ALL INTERRUPTS ARE LOCKED OUT. 
OUTPUTS: 
THE UNIBUS ADAPTER IS INITIALIZED AND INTERRUPTS ARE ENABLED. 


PSUBUV1 = ADAPTER SUBR 
vbe UBASINITIAL ° 


vc 


K (11/780 AND 11/750) 
GURATION STATUS REGISTER (11/780) 


ODOOCOCOCCOOCOCOOOOOOOOCOoOOoOSoOo 


UBASINITIAL:: ;UNIBUS ADAPTER INITIALIZATION 
10$: NO SPECIAL INIT FOR 11/730 OR uVAX I 
05 RSB ; 


SOOCOCOOCOCOOOOOOOOOOOOOOOOOOOOOOOOOO 
SoOoooooooooo 


WENNER 9 OD NAMEN OOO NIA NE WWID NIAMEY OO ODNOU ES WH" O0ON OO 


Wl NNO OOOO OOO OO 0D. 00.09. 09 C0 0.0 SUT Be EB BE EI 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
3 
; : IGNORE UNEXPECTED UNIBUS INTERRUPTS 
3 «ALIGN LONG 
ne UBASINTO:: 3; PASSIVE RELEASES THROUGH VECTOR 0 
00000000'9F 06 be INCL a#10$GL_UBA_INTO ; COUNT THEM 
00. «(11 BoA BRB UBA_UNEXINT ; JOIN COMMON CODE, VECTORS ARE ALLIGNED 
O9¢ -ALIGN LONG 
se 
Boe 400 ; NOTE: UBASUNEXINT is the Label in the EXEC that is a JMP @#UBA_UNEXINT. 
C 401; This seeming Gups te uty is necesary since there is code that must 
: 2 3 refer to the EXEC address from within the SYSLOA image. 
: 2 UBA_UNEXINT: : 3; UNEXPECTED INTERRUPT CODE 
C 4 ; FOR 11/750, NO REGISTERS SAVED 
02 c 4 REI ; IGNORE INTERRUPT 


+ he v1 = ADAPTER SUB 
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ROUTINES F oR MICRO-VAX 1 16-SEP-19 :00 VAX/VMS v04-00 Page 7 
PER CINI TIAL TAT TON LTS Pa eet Ta Sah as 
p £ .SBTTL MASSBUS ADAPTER INITIALIZATION 
p = MBASINITIAL = MASSBUS ADAPTER INITIALIZATION 
D .3 ; THIS ROUTINE I$ CALLED VIA A JSB INSTRUCTION AT SYSTEM STARTUP AND AFTER 
p 40 ; A POWER RECOVERY RESTART TO ALLOW INITIALIZATION OF MASSBUS ADAPTERS. 
p 4g : INPUTS: 
D 544 R4 = CSR ADDRESS OF MASSBUS ADAPTER. 
p 43 i : RS = ADDRESS OF ADAPTER IDB. 
p oF ; ALL INTERRUPTS ARE LOCKED OUT. 
0 p a3 : : ouTPuTs: 
G00 i : THE MASSBUS ADAPTER IS INITIALIZED AND INTERRUPTS ARE ENABLED. 
00 553° 
900 34 MBASINITIAL:: ;MASSBUS ADAPTER INITIALIZATION 
00D 564 
00D 565 RSB 


ADPSUBUV1 = ADAPTER SUB 
vO IN; SMPMADP 
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: 7 : -SBTTL INISMPMADP = BUILD ADP AND INITIALIZE MULTI-PORT MEMORY 
E ; INISMPMADP IS CALLED AFTER MAPPING THE REGISTERS FOR A MULTI-PORT 
; 3 MEMORY ADAPTER. AN ADAPTER CONTROL BLOCK IS ALLOCATED AND FILLED. 
; 71 ; THE HARDWARE ADAPTER IS THEN INITIALIZED BY CALLING MPMSINITIAL. 
E ; : NOTE: THIS porte HAS BEEN LOCATED HERE IN SYSLOAXXX.EXE INSTEAD OF 
E 74 ; i. NILO aeSre BECAUSE IT CAN BE CALLED WwW WHIL if THE SYSTEM IS RUNNING 
; o? ; ONG A FTER INILOA.EXE HAS BEEN DEL ETED!! 
E sS : INPUT: 
; 8 : R4 - nexus identification number of this nexus 
E 0 : OUTPUTS: 
4 ; 3 ALL REGISTERS PRESERVED 
E o 
00000010 BOE : NUMMPMVEC = 16 ; NUMBER OF INTER=PORT INTERRUPT VECTORS 
BOE $ INISMPMADP: : 3; INITIALIZE MPM DATA STRUCTURES 
05 OO0E 389 RSB ; DUMMY ENTRY FOR SYSGEN 
OO0F 90 
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~SBTTL MASINITIAL = INITIALIZE MULTI-PORT MEMORY ADAPTER 


; MPMSINITIAL - INITIALIZE MULTI-PORT MEMORY ADAPTER 
THIS ROUTINE IS CALLED AT pysren NTIALIZATION AND AFTER A POWER 
; RECOVERY RESTART TO INITIALIZE THE PORT ADAPTER BY CLEARING ANY 
¢ ERRORS AND ENABLING ALL INTERRUP Ts. 
INPUTS: 

R4 = ADDR OF ADAPTER CSR. 

IPL = 31 
OUPUTS: 


ANY ERRORS IN PORT ARE CLEARED AND ALL INTERRUPTS ARE ENABLED. 


MASINITIAL:: : INTIALIZE PORT 
RSB 
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SSEp=19be Gusdeies ESYSLOA.SReSADPSUcmaR:1 28° 
.SBTTL INTER=PROCESSOR REQUEST HANDLER 


FUNCTIONAL DESCRIPTION: 


“ 
i te | ae 


é THIS ROUTINE IS CALLED BY A DRIVER OR AN EXEC FUNCTION TO 
$ EITHER SEND A REQUEST TO OR JUST INTERRUPT ANOTHER PROCESSOR 
THAT IS CONNECTED TO A PORT OF THE MULTIPORT MEMORY. 

33 INPUTS: 
4 R4 = ADAPTER CONTROL BLOCK ADDRESS. 
4 RS = IF LSS 0 = ADDRESS OF A FORK BLOCK TO USE IF REQUEST 
4 CK IS NOT AVAILABLE. 

44 IF GEQ 0 = PORT NUMBER OF PROCESSOR TO JUST INTERRUPT 
46 OUTPUTS: 
48 WHEN THIS ROUTINE IS CALLED WITH A FORK BLOCK ADDRESS, IT WILL 
4 ATTEMPT TO ALLOCATE A REQUEST BLOCK. IF THE REQUEST FAILS, 
50 THE CONTEXT OF THE CALLER WILL BE SAVED IN THE FORK BLOCK, THE 
51 FORK BLOCK BLOCK WILL BE INSERTED IN THE REQUEST BLOCK WAIT 
3g QUEUE AND A RETURN TO THE CALLER'S CALLER IS EXECUTED. 

54 IF A REQUEST BLOCK IS ALLOCATED SUCCESSFULLY, CONTROL WILL 
33 RETURN TO THE CALLER VIA A CO-ROUTINE CALL SO THE CALLER CAN 
27 

35 
60 
61 
i 


Se Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Fe Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Se Se Se Sse Ge Sete 


SOOOCCOOCOOCOOOOOSOSOOOOOOOOSOSOOOSOOSOOSOOOOOOSOOOO OOOO OOOOOOOOO 


SOoooooooooooooooooooooooooooooooooooQoooooooooooooooo 


FILL-IN THE REQUEST BLOCK. 
THE CALLER WILL THEN PERFORM ANOTHER CO-ROUTINE CALL TO RETURN 
TO THIS ROUTINE SO THE BLOCK CAN BE INSERTED IN THE DESIRED 
PROCESSOR'S INTER=PROCESSOR REQUEST QUEUE. IF IT IS THE 
FIRST REQUEST IN THE QUEUE AN _INTER=PORT INTERRUPT WILL 

fe ALSO BE REQUESTED TO WAKE-UP THE DISPATCHER ON THE PORT. 

764 

765 If THIS ROUTINE IS CALLED WITH A PORT NUMBER INSTEAD OF 

76 FORK x Loe Sgt F IT WILL JUST REQUEST AN ot FOR 

8 76 THE P SOR ON THE SPECIFIED PORT. IT IS THEN UP TO THE 

789 INTERRUPTED PROCESSOR TO DETERMINE WHAT THE INTERRUPT WAS 

770 

771 RO = SUCCESS OR FAILURE OF OPERATION. THIS SHOULD BE CHECKED 

ak BY THE CALLER BOTH TIMES THIS ROUTINE RETURNS. 

ore R3,R4,R5 ARE PRESERVED. 

pret 

ore MASREQUEST: : ; REQUEST HANDLER 

05 44 RSB 
782 
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voc REPORT 
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; FUNCTIONAL DESCRIPTION: 


THIS ROUTINE IS CAL yi tg TO REPORT TO ANY PROCESSORS THAT A RESOURCE 
HAS BEEN MADE AVAILABLE. 


INPUTS: 


RO = RESOURCE NUMBER OF RESOURCE MADE AVAILABLE. 
Ri = SHARED MEMORY CONTROL BLOCK (SHB) ADDRESS. 


OUTPUTS: 


ANY PROCESSORS WAITING FOR TKE SP tte 


ED RESOURCE ARE INTERRUPTED 
TO NOTIFY THEM THE RESOURCE IS AVA E 


FI 
ABLE. 
RO,R1,R2,R3 ARE NOT PRESERVED. 


MASRAVAIL:: 
RSB 


05 
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ADPSUBUV1 = ADAPTER SUBROUTINES FOR MICRO-VAX | 16-SEP-1984 01:06: AX/VMS 4- C 
Symbol table ety Pi 87 88:28 SOR SAE IAD PSUR MAR: 1 tyes tg 6 


80 LIKE = 
CISINITIAL RG os 
CISSHUTDOWN RG 
TYPE = 
DRSTNITIAL 1 RG 
SSHUTD 1 RG 
SMPMADP E RG 
10$GL_UBA_INTO eererere = §6X 
MASINITIAC OF RG 
MASRAVAIL 11 RG 
MASREQUEST 00010 RG 
MBASINITIAL 8 OD RG 
NUMMPMVE C = 1 
PRS$_SID_TYP730 = $ 
PR$_SID_TYP750 = 00000 
PRS$_SID_TYP780 = 38 0 
PRS$_SID_TYP790 = 00000004 
PRS_SID_TYPUV1 = 944 fi 
UBASINITIAL 0000002 RG 0 
UBASINTO 00000004 RG 0 
UBA_UNEX INT Q0000000C RG 0 
fmm wmaonmr one neces 4 
: Psect synopsis : 
PSECT name Allocation PSECT No. Attributes 
P . 00000000 <( 3-3 60 ( Q.) NOPIC USR CON ABS - LCL NOSHR NOEXE NORD wount NOVEC BYTE 
SABSS 00000000 0.) ( 1.) NOPIC USR CON ABS LCL NOSHR EXE RD T NOVEC BYTE 
SYSLOA 0000001 c: ee $3 ( 2.) NOPIC USR CON REL LCL NOSHR EXE RD URT NOVEC LONG 
teeeer ee eee swe ese weer cescoe $ 
! ; Performance indicators ; 
Phase Page faults CPU Time waters Time 
Initialization 30 :00:00.05 2. 
comand processing 106 00:00:50 00:02 $2 
Synbol table sort “s 01°99 07: ig 
s r : 3 oO . 3 . 
78 :00: 38 : 210.41 
a table output 4 :00. :00: Be 
Psect synopsis output :00:00.01 :00:00.01 
Cross-reference output :00:00. 8 :00:00. 
Assembler run totals 69 2:00:16. 0:01:09.0 


118633" byee set jtate was 1509 pages. 
11 bytes (21 pages) of virtual memory were used to buffer the intermediate code. 
There were 100 pages of symbol table space oh ocas d to hold 1886 non-local and 1 local symbols. 
source Lines were read in Pass 1, producing | object records in Pass 2. 
}} pages of virtual memory were used to define 26 macros. 
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VAX=-11 Macro Run Statistics 
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! Macro Library statistics ! 


pone mam monn reser een nee c ese $ 


Macro Library name Macros defined 
“B52 2EDUACE: Svs. -OBJJLIB.MLB; 1 17 
SDUA SYSLIBJSTARLET.MLB;2 § 
TorAce (all Libraries) 2 


2008 GETS were required to define 23 macros. 
There were no errors, warnings or information messages. 
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MACRO/LIS=L1IS$:ADPSUBUV1/0BJ=0BJ$:ADPSUBUV1 MSRCS$:CPUSWUV1/UPDATE=(ENH$: CPUSWUV1) +MSRC$: ADPSUB/UPDATE=(ENHS$ : ADPSUB) +EXECMLS/LIB 
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